home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / dev_libs / feelin040718 / demos / areafonts.e < prev    next >
Text File  |  2004-08-03  |  2KB  |  71 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF app,win,font1,font2,font3,font4,font5
  7.  
  8.    font1 := 'Garnet/16'
  9.    font2 := 'Helvetica/15'
  10.    font3 := 'Diamond/12'
  11.    font4 := 'topaz/8'
  12.    font5 := 'Mario/12'
  13.  
  14.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  15.       app := AppObject,
  16.          Child, win := WindowObject,
  17.             FA_Window_Title, 'Feelin : Differents fonts',
  18.             FA_Window_Open,   TRUE,
  19.  
  20.             Child, VGroup,
  21.                Child, HGroup, GroupFrame, FA_Frame_Title,font1, FA_Frame_Font,font5,
  22.                   Child, button('Save',font1),
  23.                   Child, button('Use',font1),
  24.                   Child, button('Cancel',font1),
  25.                End,
  26.  
  27.                Child, HGroup, GroupFrame, FA_Frame_Title,font2,
  28.                   Child, button('Save',font2),
  29.                   Child, button('Use',font2),
  30.                   Child, button('Cancel',font2),
  31.                End,
  32.  
  33.                Child, HGroup, GroupFrame, FA_Frame_Title,font3, FA_Frame_Font,font5,
  34.                   Child, button('Save',font3),
  35.                   Child, button('Use',font3),
  36.                   Child, button('Cancel',font3),
  37.                End,
  38.  
  39.                Child, HGroup, GroupFrame, FA_Frame_Title,font4,
  40.                   Child, button('Save',font4),
  41.                   Child, button('Use',font4),
  42.                   Child, button('Cancel',font4),
  43.                End,
  44.             End,
  45.          End,
  46.       End
  47.  
  48.       IF app
  49.          F_DoA(win,FM_Notify,[FA_Window_CloseRequest,TRUE,app,FM_Application_Shutdown,0])
  50.          F_DoA(app,FM_Application_Run,NIL)
  51.          F_DisposeObj(app)
  52.       ENDIF
  53.  
  54.       CloseLibrary(feelinbase)
  55.    ELSE
  56.       WriteF('Unable to open feelin.library\n')
  57.    ENDIF
  58. ENDPROC
  59.  
  60. PROC button(name,font)
  61.    RETURN   TextObject,
  62.             FA_Font,          font,
  63.             FA_Frame,         'FP_Button_Frame',
  64.             FA_Back,          'FP_Button_Back',
  65.             InputRelease,
  66.             FA_SetMax,        FV_SetMaxH,
  67.             FA_Text,          name,
  68.             FA_Text_PreParse, '<align=center>',
  69.             End
  70. ENDPROC
  71.